home *** CD-ROM | disk | FTP | other *** search
/ CD/PC Actual 76 / DVD Actual 1 Marzo 2003.iso / Trial / TurboCAD 7.1 Pro / Data.Cab / F28904_ToolTextAlong.bas < prev    next >
Encoding:
BASIC Source File  |  2000-11-10  |  492 b   |  29 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  Type CosmInfo
  4.     nV As Long
  5.     lCur() As Double
  6.     dL() As Double
  7.     xVer() As Double
  8.     yVer() As Double
  9.     Bet() As Double
  10. End Type
  11.  
  12.  
  13.  
  14. Global objApp As XApplication
  15. Global Drs As Drawings
  16. Global ActDr As Drawing
  17. Global Grs As Graphics
  18. Global Vis As Views
  19. Global Vi As View
  20.  
  21. Global Const Pi = 3.14159265359
  22. Global Const Eps = 0.000001
  23. Global FormCancel As Boolean
  24.   
  25. Sub Main()
  26.      FormCancel = True
  27. End Sub
  28.  
  29.